home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt40s1.arc / BIGTURBO.VAR < prev    next >
Encoding:
Text File  |  1987-04-23  |  2.2 KB  |  26 lines
  1. (*===========================================================================*)
  2. (*     The following code is an encrypted version of the BIGTURBO runtime    *)
  3. (*     facilities from Turbo Extender, included by permission of TurboPower  *)
  4. (*     Software.                                                             *)
  5. (*===========================================================================*)
  6.  
  7. CONST I11I111111I:STRING[73]=
  8. 'BIGTURBO - EMS Large Code Model. Copyright (c) 1986, TurboPower Software.';I111II:STRING[33]=
  9. 'All Rights Reserved. Version 2.0a';TurboRunDataStart=$103;TurboRunDataLength=$100;I1=$67;NotInEMS=$FFFF
  10. ;MaxPathEntries=20;I=$FF;TYPE BigTurboString=STRING[64];I11II111IIII=ARRAY[0..3] OF BYTE;
  11. I1111111III1=^I11II111IIII;I1I=RECORD II11111IIII11:I1111111III1;Handle:INTEGER;I111I111:
  12. I1111111III1;Size:INTEGER;III11111:I1111111III1;I1II1I1I:INTEGER;I1I111I1I1111:BigTurboString;END;
  13. III=RECORD I1III:INTEGER;I11III1I11I:INTEGER;II1III1I1I1:INTEGER;II1I1I11IIII1:INTEGER;III1III11I11:
  14. INTEGER;IIII11:INTEGER;I1I11IIII:INTEGER;III1I11111:INTEGER;END;I1I1II1IIII1=0..MaxNumModules;
  15. III1II11I1II=0..MaxStackSize;IIII1III=RECORD CASE INTEGER OF 1:(II1,II11I1II,I1I111,II11II1I1II1,
  16. II11111,I11III11I1II1,III1III,I1I11,I1II1I,I111111II:INTEGER);2:(II1I11II1,III11II,II1IIII1,I1I11I,
  17. I111I1I1,III11,I11I11II,I11I111II1I1:BYTE);END;I1I1I1=RECORD II1,II11II1I1II1,I111111II:INTEGER;END;
  18. I111111I1I1=1..MaxPathEntries;VAR BigModules:ARRAY[I1I1II1IIII1] OF I1I;II1II11II11:ARRAY[
  19. III1II11I1II] OF III;IIIII1111I1I:III1II11I1II;IIII1I1I1:III1II11I1II;I1II1111I1I:I1111111III1;II111
  20. :I1111111III1;I11II11I1III:I1111111III1;II1I11I1:INTEGER;III1I1:INTEGER;II1II:I1I1I1;I111I11II111:
  21. IIII1III;EMMavailable:BOOLEAN;I1111II1I1111:INTEGER;IIII1I1:INTEGER;DOSpathnames:ARRAY[I111111I1I1] 
  22. OF BigTurboString;NumPathnames:I111111I1I1;BestPathNum:I111111I1I1;PROCEDURE FarOutGoing(I1II1,
  23. I1I11I1II11:INTEGER);BEGIN INLINE($8B/$56/<I1I11I1II11 /$8B/$76/<I1II1 /$8B/$6E/$00 /$89/$EC /$BB/
  24. II1II11II11 /$A0/II1I11I1 /$F6/$26/IIIII1111I1I /$01/$C3 /$8F/$47/$04 /$8C/$4F/$02 /$8F/$07 /$89/$77
  25. /$0A /$89/$57/$0C /$FF/$2E/II111 );END;PROCEDURE CloneCodeSegment(IIIIIII1I111,I111:INTEGER);FORWARD
  26. ;